home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / pascal / mouse.exe / MOUSECUR.PAS < prev    next >
Pascal/Delphi Source File  |  1989-06-01  |  8KB  |  217 lines
  1.  
  2. { This is the MOUSECUR.PAS include file for the MOUSE.PAS unit.}
  3. { It contains the mouse text and graphic cursor definitions }
  4.  
  5. {---------------------------------------------------------------------------}
  6. { Mouse Graphic cursors set by - MouseGraphicCursor(Shape); }
  7.  
  8. { define what the mouse graphic cursor definition array looks like }
  9. type MGCarray = array [1..MaxMouseGraphShape] of MaskType;
  10.  
  11. { Next we define the cursor array as a typed constant }
  12.  
  13. const MouseGCursor: MGCarray =   {a predefined list of mouse graphic cursors}
  14.  
  15. { Standard }
  16.  ((Def: (($3FFF,$1FFF,$0FFF,$07FF,$03FF,$01FF,$00FF,$007F,    { Screen Mask }
  17.           $003F,$001F,$01FF,$10FF,$30FF,$F87F,$F87F,$FC7F),
  18.  
  19.          ($0000,$4000,$6000,$7000,$7800,$7C00,$7E00,$7F00,    { Cursor Mask }
  20.           $7F80,$7C00,$6C00,$4600,$0600,$0300,$0300,$0000));
  21.  
  22.          HotX: -1; HotY: -1),                                    { Hot Spot }
  23.  
  24. { UpArrow }
  25.   (Def: (($F9FF,$F0FF,$E07F,$E07F,$C03F,$C03F,$801F,$801F,
  26.           $000F,$000F,$F0FF,$F0FF,$F0FF,$F0FF,$F0FF,$F0FF),
  27.  
  28.          ($0000,$0600,$0F00,$0F00,$1F80,$1F80,$3FC0,$3FC0,
  29.           $7FE0,$0600,$0600,$0600,$0600,$0600,$0600,$0000));
  30.  
  31.          HotX: 5; HotY: 0),
  32.  
  33. { DownArrow }
  34.   (Def: (($F0FF,$F0FF,$F0FF,$F0FF,$F0FF,$F0FF,$000F,$000F,
  35.           $801F,$801F,$C03F,$C03F,$E07F,$E07F,$F0FF,$F9FF),
  36.  
  37.          ($0000,$0600,$0600,$0600,$0600,$0600,$0600,$7FE0,
  38.           $3FC0,$3FC0,$1F80,$1F80,$0F00,$0F00,$0600,$0000));
  39.  
  40.          HotX: 5; HotY: 15),
  41.  
  42. { LeftArrow }
  43.   (Def: (($FE1F,$F01F,$0000,$0000,$0000,$F01F,$FE1F,$FFFF,
  44.           $FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF),
  45.  
  46.          ($0000,$00C0,$07C0,$7FFE,$07C0,$00C0,$0000,$0000,
  47.           $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000));
  48.  
  49.          HotX: 0; HotY: 3),
  50.  
  51. { RightArrow }
  52.   (Def: (($F87F,$F80F,$0000,$0000,$0000,$F80F,$F87F,$FFFF,
  53.           $FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF),
  54.  
  55.          ($0000,$0300,$03E0,$7FFE,$03E0,$0300,$0000,$0000,
  56.           $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000));
  57.  
  58.          HotX: 15; HotY: 3),
  59.  
  60. { CheckMark }
  61.   (Def: (($FFF8,$FFF0,$FFE1,$FFC3,$FF87,$FF0F,$0E1F,$043F,
  62.           $807F,$E0FF,$F1FF,$FBFF,$FFFF,$FFFF,$FFFF,$FFFF),
  63.  
  64.          ($0000,$0006,$000C,$0018,$0030,$0060,$00C0,$7180,
  65.           $1B00,$0E00,$0400,$0000,$0000,$0000,$0000,$0000));
  66.  
  67.          HotX: 5; HotY: 11),
  68.  
  69. { UpHand }
  70.   (Def: (($E1FF,$E1FF,$E1FF,$E1FF,$E000,$E000,$E000,$0000,    { Screen Mask }
  71.           $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000),
  72.  
  73.          ($1E00,$1200,$1200,$1200,$13FF,$1249,$1249,$F249,    { Cursor Mask }
  74.           $9001,$9001,$9001,$8001,$8001,$8001,$8001,$FFFF));
  75.  
  76.          HotX: 5; HotY: 0),                                      { Hot Spot }
  77.  
  78. { DownHand }
  79.   (Def: (($0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
  80.           $0000,$E000,$E000,$E000,$E1FF,$E1FF,$E1FF,$E1FF),
  81.  
  82.          ($FFFF,$8001,$8001,$8001,$8001,$9001,$9001,$9001,
  83.           $F249,$1249,$1249,$13FF,$1200,$1200,$1200,$1E00));
  84.  
  85.          HotX: 5; HotY: 15),
  86.  
  87. { LeftHand }
  88.   (Def: (($FFFF,$FF8F,$FF07,$FF03,$FF81,$8000,$0000,$0000,
  89.           $0000,$8000,$F000,$F800,$F800,$FC00,$FC01,$FC03),
  90.  
  91.          ($0000,$0000,$0070,$0048,$0024,$0032,$7FF2,$800A,
  92.           $7FF6,$0412,$07F2,$0212,$03F2,$0116,$01FC,$0000));
  93.  
  94.          HotX: 0; HotY: 7),
  95.  
  96. { RightHand }
  97.   (Def: (($FFFF,$F1FF,$E0FF,$C0FF,$81FF,$0001,$0000,$0000,
  98.           $0000,$0001,$000F,$001F,$001F,$003F,$803F,$C03F),
  99.  
  100.          ($0000,$0000,$0E00,$1200,$2400,$4C00,$4FFE,$5001,
  101.           $6FFE,$4820,$4FE0,$4840,$4FC0,$6880,$3F80,$0000));
  102.  
  103.          HotX: 15; HotY: 7),
  104.  
  105. { StopHand }
  106.   (Def: (($FE3F,$F80F,$F007,$F003,$F001,$F001,$0001,$0001,
  107.           $0001,$0001,$8001,$C001,$C001,$E003,$F007,$F80F),
  108.  
  109.          ($0000,$01C0,$0770,$0550,$055C,$0554,$0554,$7554,
  110.           $5554,$4FFC,$2804,$1004,$180C,$0C18,$07F0,$0000));
  111.  
  112.          HotX: 7; HotY: 7),
  113.  
  114. { HourGlass }
  115.   (Def: (($0000,$0000,$0000,$0000,$8001,$C003,$E007,$F00F,
  116.           $E007,$C003,$8001,$0000,$0000,$0000,$0000,$FFFF),
  117.  
  118.          ($0000,$7FFE,$6006,$300C,$1818,$0C30,$0660,$03C0,
  119.           $0660,$0C30,$1998,$33CC,$67E6,$7FFE,$0000,$0000));
  120.  
  121.          HotX: 7; HotY: 7),
  122.  
  123. { DiagCross }
  124.   (Def: (($07E0,$0180,$0000,$C003,$F00F,$C003,$0000,$0180,
  125.           $07E0,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF),
  126.  
  127.          ($0000,$700E,$1C38,$0660,$03C0,$0660,$1C38,$700E,
  128.           $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000));
  129.  
  130.          HotX: 7; HotY: 4),
  131.  
  132. { RectCross }
  133.   (Def: (($FC3F,$FC3F,$FC3F,$0000,$0000,$0000,$FC3F,$FC3F,
  134.           $FC3F,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF),
  135.  
  136.          ($0000,$0180,$0180,$0180,$7FFE,$0180,$0180,$0180,
  137.           $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000));
  138.  
  139.          HotX: 7; HotY: 4),
  140.  
  141.  
  142.   { these cursors need to be updated yet }
  143. { RectBox }
  144.   (Def: (($FFFF,$FFFF,$0000,$0000,$0000,$1FF8,$1FF8,$1FF8,
  145.           $1FF8,$1FF8,$1FF8,$1FF8,$0000,$0000,$0000,$FFFF),
  146.  
  147.          ($0000,$0000,$0000,$7FFE,$4002,$4002,$4002,$4002,
  148.           $4002,$4002,$4002,$4002,$4002,$7FFE,$0000,$0000));
  149.  
  150.          HotX: 7; HotY: 8),
  151.  
  152. { TargetCross }
  153.   (Def: (($FFFF,$FFFF,$FC7F,$FC7F,$FC7F,$FC7F,$FC7F,$06C1,
  154.           $0101,$06C1,$FC7F,$FC7F,$FC7F,$FC7F,$FC7F,$FFFF),
  155.  
  156.          ($0000,$0000,$0000,$0100,$0100,$0100,$0100,$0000,
  157.           $783C,$0000,$0100,$0100,$0100,$0100,$0000,$0000));
  158.  
  159.          HotX: 7; HotY: 4),
  160.  
  161. { TargetCircle }
  162.   (Def: (($FFFF,$FFFF,$F01F,$C007,$8003,$0441,$0C61,$06C1,
  163.           $0101,$06C1,$0C61,$0441,$8003,$C007,$F01F,$FFFF),
  164.  
  165.          ($0000,$0000,$0000,$07C0,$1930,$3118,$610C,$600C,
  166.           $783C,$600C,$610C,$3118,$1930,$07C0,$0000,$0000));
  167.  
  168.          HotX: 7; HotY: 8),
  169.  
  170. { TargetBox }
  171.   (Def: (($FFFF,$FFFF,$0001,$0001,$0001,$1C71,$1C71,$06C1,
  172.           $0101,$06C1,$1C71,$1C71,$0001,$0001,$0001,$FFFF),
  173.  
  174.          ($0000,$0000,$0000,$7FFC,$4104,$4104,$4104,$4004,
  175.           $783C,$4004,$4104,$4104,$4104,$7FFC,$0000,$0000));
  176.  
  177.          HotX: 7; HotY: 8),
  178.  
  179. { QuestionMark }
  180.   (Def: (($FFFF,$E00F,$C007,$8003,$0001,$0001,$0001,$0001,
  181.           $0001,$0001,$0001,$0001,$0001,$8003,$C007,$E00F),
  182.  
  183.          ($0000,$0000,$1FF0,$3FF8,$783C,$739C,$739C,$7F3C,
  184.           $7E7C,$7E7C,$7FFC,$7E7C,$7E7C,$3FF8,$1FF0,$0000));
  185.  
  186.          HotX: 7; HotY: 7));
  187.  
  188.  
  189. {---------------------------------------------------------------------------}
  190. { Mouse text cursors set by -  MouseTextCursor(Select,Start,Stop) }
  191.  
  192. { define what the mouse graphic cursor definition array looks like }
  193. type MTCarray = array [1..MaxMouseTextShape] of MouseTextType;
  194.  
  195. { Next we define the text cursor array as a typed constant }
  196. const MouseTCursor: MTCarray =   {a predefined list of mouse text cursors}
  197.     ((Select: 1;  Start: 1;      Stop: 14),     {1 Hardware Cursor}
  198.      (Select: 0;  Start: $77FF;  Stop: $7700),  {2 Standard Cursor}
  199.      (Select: 0;  Start: $07FF;  Stop: $F800),  {3 Blink Cursor}
  200.      (Select: 0;  Start: $7000;  Stop: $8718),  {4 Up Arrow}
  201.      (Select: 0;  Start: $7000;  Stop: $8719),  {5 Down Arrow}
  202.      (Select: 0;  Start: $7000;  Stop: $871B),  {6 Left Arrow}
  203.      (Select: 0;  Start: $7000;  Stop: $871A),  {7 Right Arrow}
  204.      (Select: 0;  Start: $7000;  Stop: $871E),  {8 Up Triangle}
  205.      (Select: 0;  Start: $7000;  Stop: $871F),  {9 Down Triangle}
  206.      (Select: 0;  Start: $7000;  Stop: $8711),  {10 Left Triangle}
  207.      (Select: 0;  Start: $7000;  Stop: $8710),  {11 Right Triangle}
  208.      (Select: 0;  Start: $7000;  Stop: $8704),  {12 Diamond}
  209.      (Select: 0;  Start: $7000;  Stop: $8716),  {13 Square}
  210.      (Select: 0;  Start: $7000;  Stop: $8709),  {14 Circle}
  211.      (Select: 0;  Start: $7000;  Stop: $8707)); {15 Spot}
  212.  
  213.  
  214. {---------------------------------------------------------------------------}
  215. { End Of MOUSECUR.PAS include file }
  216.  
  217.